home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / vbkontrol.exe / IPD_102N.ZIP / ECHO.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1995-01-25  |  1.8 KB  |  54 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "ECHO"
  4.    ClientHeight    =   4590
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   7305
  8.    Height          =   4995
  9.    Left            =   1035
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4590
  12.    ScaleWidth      =   7305
  13.    Top             =   1140
  14.    Width           =   7425
  15.    Begin IPDAEMON IPDaemon1 
  16.       EOL             =   ""
  17.       InBufferSize    =   2048
  18.       Left            =   4560
  19.       Linger          =   -1  'True
  20.       OutBufferSize   =   2048
  21.       Port            =   0
  22.       Top             =   120
  23.    End
  24.    Begin CommandButton Command1 
  25.       Caption         =   "Start Listening"
  26.       Height          =   375
  27.       Left            =   5160
  28.       TabIndex        =   0
  29.       Top             =   120
  30.       Width           =   1695
  31.    End
  32. Sub Command1_Click ()
  33. IPDaemon1.Listening = False
  34. IPDaemon1.Port = 7
  35. IPDaemon1.Listening = True
  36. End Sub
  37. Sub Form_Paint ()
  38. Print "You can test by clicking on the button:"
  39. Print "...and then telnet-ing to " & IPDaemon1.LocalHostName & " 7"
  40. Print "...from this machine, or another machine."
  41. Print ""
  42. End Sub
  43. Sub IPDaemon1_Connected (ConnectionID As Integer, StatusCode As Integer, Description As String)
  44. Print "Connected to: " & IPDaemon1.RemoteHost(ConnectionID)
  45. End Sub
  46. Sub IPDaemon1_DataIn (ConnectionID As Integer, Text As String, EOL As Integer)
  47. Print IPDaemon1.RemoteHost(ConnectionID) & " says: " & Text
  48. Print ">>> I say: " & Text
  49. IPDaemon1.DataToSend(ConnectionID) = Text
  50. End Sub
  51. Sub IPDaemon1_Disconnected (ConnectionID As Integer, StatusCode As Integer, Description As String)
  52. Print "Disconnected: ConnectionID = " & ConnectionID & " - Address forgotten :-)."
  53. End Sub
  54.